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| 3 
| BASSSYS 1b-se -1984 01:16:51 AX-11 Bliss-32 V4.0-74 Page 1 
12-8 08- 1 9be 94:48:21 YBASRTL SRCIBASSYS B32; . (1) 

: 1 001 MODULE BASS$SYS ( ' RSTS SYS Function 

$ § O9¢ poewt = '1-014' ' File: BASSYS B32 Edit: PL1014 
° = 

fs b0$ 1 Seon 

: 6 Oooe 1 PITITITILILILLLLLI LILI LITT iii Tilii iii iiiiiiiiiiiiiitiitiie 
; 7 007 1 I * 
3 8 Bn08 1 '!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
F} 4 009 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
; 19 Bere ! :* ALL RIGHTS RESERVED. a 
Ps : ® 
3 i borg 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ints 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 \ id : 7° TRANSFERRED. ® 
3 '® - 
; ih) 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT « 
; $ pe ' re CORPORATION. * 
Ps : te 
3 $¢ iss 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: Se oose : :: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
° ; © 
; & $058 1 !e * 
3 27 0027 1 lee e area eee eee RARER AE AERA EAEAT EAA TATA AREA AAAAAARARERERARE REE 
; 2 0028 1! 

3 9 0029 1 

3 0 0030 1 !++¢ 

; } Boat : FACILITY: VAX=-11 BASIC RSTS COMPATABILITY 

i 0033 1 | ABSTRACT: 

3; 0034 1! 

: 0035 1! This module contains the RSTS-compatable SYS function. 

: 38 oo88 : Some of the more complex functions do calls to BPA routines. 

3 38 0038 i ENVIRONMENT: VAX=11 User Mode 

: 40 0040 i AUTHOR: John Sauter, CREATION DATE: 01-OCT-1979 

a 0042 1 i MODIFIED BY: 

; 0043 1! 

: 6464 0044 1 ! 1-001 - Original. 

: «645 0045 1 ! 1-002 - Define BPASA_HISEG as 0, to disable the checking for the end 

; 46 BOs8 1! of the compatability-mode Ay pegnent., and allocate 

s «#7 0047 1! some global cells for ASSIGN/DEASSIGN. JBS 02-OCT-1979 

s 68 0048 1 ! 1-003 - Instead of passing the XRB to the message send/receive code, 

; «649 , oo pass the relevant fields of the XRB. Also, BPAS_HISEG is 

: ‘0 050 1! no longer needed. 4-0CT- 

3 1 051 1 ! 1-004 = Debug message send/receive. JBS 05-OCT-1979 

; 26 3036 1 ! 1-005 - Continue debugging message send/receive. JBS 07-OCT-1979 

‘ee 0055 1! 1~ 908 > Fix some errors in calling terminal functions. JBS 12-OCT-1979 

3; (54 054 1 ! 1-007 - Handle short parameter strings correctly. JBS 17-OCT-1979 

055 1 ! 1-008 - Add core common, JBS 03-DEC-1979 

; 026 1 ! 1-009 - Add FSS. JBS 04-DEC-1979 

- 0057 1 ! 1-010 = Add setting priority. JBS 04-DEC-1979 
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1-011 = Make “exit with no prompt’’ exit more 
into core common, and make ODT submode give an error sen dee 26cFE 


HESSS198G GHEAGEET  WALGHT S4ARNGRB YS 0584 


there isn't time to make it work right for this renee? 


- Put in small send and receive. All four ye ee FM 2 


IBSSTOP should be declared EXTERNAL. PL 20-N 


v-81 
- Call BASSSSTOP to signal errors instead of BASSSSTOP. 10. 


uietly, fix a typo in putting 


6-F EB-1980 


PLL 16-Jun-1982 
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3 
BASSSYS ibese -1984 01:16:51 AX-11 Bliss-32 V4.0-74 Page 
att 1e-8ep-19 4 94:18:21 YBASRTL’ SRe BASSYS .B32; . 
H 68 067 1! 
: 4 068 1 ! SWITCHES: 
: #9 O76 1: 
s a 14 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 76 Me 1! 
; 75 074 1 ! LINKAGES: 
; r8 0075 1! 
ae po78 1 
; 0077 1 REQUIRE ‘RTLIN:OTSLNK'; ! 1/0 Linkages 
; 79 0206 1 
: 80 0507 1! 
$ 81 0508 1 ! TABLE OF CONTENTS: 
3 Hf 0509 1! 
; & 0510 1 
3 84 0511 1 FORWARD ROUTINE 
; 85 o21§ 1 BASSSYS : NOVALUE ! Do a SYS() function 
: 86 0513 1 BAS$SUUO : NOVALUE; i Do a UUO sub-function 
; «87 0514 «+1 
3 88 0515 1! 
3 89 0516 1 ! INCLUDE FILES: 
; 690 0517 1! 
; 91 0518 1 
3 36 o318 : REQUIRE ‘RTLML:OTSLUB'; ' LUB definitions 
3 3e 3ee0 : REQUIRE ‘RTLIN:BPASTRUCT'; ! Structureing definitions 
3 38 4454 } REQUIRE "RTLIN:BPAFQBDEF'; ! FIRQB definitions 
3 38 1 144 ' REQUIRE ‘RTLIN:BPAFSBDEF'; ! FSB definitions 
: 190 1908 ! REQUIRE ‘RTLIN:BPAFUNDEF'; ! Function definitions 
: 44 1960 ' REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects 
3 104 1356 1 LIBRARY ‘RTLSTARLE'; ! System symbols 
3; 105 1357 1 
3; 106 1358 1! 
: 107 1359 1 ! MACROS: 
; 108 1360 1! 
; 109 1361 1! NONE 
3; 110 1366 1! 
s 111 139 1 ! EQUATED SYMBOLS: 
3 Wg 1364 1! 
: 11 1365 1! NONE 
; 1146 1396 1! 
3 132 : 44 ' : PSECTS: 
; Ht ' 44 : DECLARE _PSECTS (BAS); ' Declare psects for BAS$ facility 
; 119 1371 1 ! OWN STORAGE: 
; 130 1 4 1! 
s 21 137 1! NONE 
3 16 1374 1! 
2 1375 1 =! EXTERNAL REFERENCES: 
3 126 1376 1! 


Mm 3 
PARsers 1o~sen= 138% 1:16:27) AX-11 at V4.0274 
1-014 14-Sep-1984 11:56:41 BASRTL.SRCJBASSYS .832; 
> 125 1377 1 
3 3 $ 1 4: 1 EXTERNAL ROUTINE 
a 1379 1 LIBSSTOP : NOVALUE, ! Signal a fatal error 
; 128 1380 1 STRSCOPY_DX, ! Copy a string by descriptor 
s 129 1381 1 STRSCOPY_R ' Copy a string by reference 
: 130 1 : 1 STRSFREET_OX, i Free a string 
: 131 1 1 STRSCONCAT, ' Concatenate strings 
3; 7 ; 1384 1 LIBSGET_C ° ! Fetch from process common 
: 13 1385 1 LIBSPUT_C ' Store in process common 
3 134 1386 1 BASSSSTOP : NOVALUE ' Signal fatal error 
: 135 1387 1 BASSRCTRLO : NOVALUE, i Clear control 0 
ye 1 ti 1 BASSNOECHO : NOVALUE, ! Turn off _echoin 
3; 3 1389 1 ONECHR : ALU ! Enter ODT submode 
: 138 1339 1 BASSCANTYPAHEAD : NOVALUE, ! Cancel type-ahead 
3; #139 1391 1 SSCTRLC : NOVALUE, ! Enable control-C trapping 
3; 140 1336 1 ASSECHO : NOVALUE, ! Turn of echoing 
3 «6141 1395 1 SSERT : NOVALUE ' Return error message 
3 146 1394 1 BASSSCB_PUSH : JSB_CB_PUSH NOVALUE, ' Load register CCB 
3: (14 1398 1 $$CB POP : JSB_CB_POP NOVALUE, ! Done with register CCB 
3 6144 1396 1 BASS$STOP_IO : NOVALOE, ! Signal fatal 1/0 error 
3; «(145 1397 1 ESAG, ! Do send/receive 
3 6146 1398 1 ASSIGN ! Assign a device 
> 147 1399 1 BPASDEASSIGN, i Deassign a device 
3 6148 1400 1 PASDEASS_ALL, ! Deassign all devices 
: 149 1401 1 SET_DEF, ' Set default 
3; 150 108 1 BPASFSS ! File string scan 
; 151 1403 1 BPASFREE BLOCK, i Free heap storage 
: 152 1404 1 BPASSET_PRI; ! Change priority 
: 155 1405 1 
s 136 1406 1 !+ 
3 1399 1407 1 ! The following are the error codes used in this module. 
; 156 1408 1 !- 
: 157 1409 1 
; «6158 1410 1 EXTERNAL LITERAL 
3; «6159 1411 1 BASSK_ILLIO_CHA : UNSIGNED (8), ' Illegal 1/0 channel 
: 160 1412 1 BASS$K_10_CHANOT : UNSIGNED (8), ! 1/0 channel not open 
3 161 1413 1 BASSK_ILCSYSUSA : UNSIGNED (8), ' Illegal SYS$() usage 
3 162 1414 1 BASSK_ILLBYTCOU : UNSIGNED (8), ! Illegal byte count for 1/0 
3; 165 1415 1 BASSK_NO_ROOUSE : UNSIGNED (8), ! No room for user on device 
3 be: 1616 : BASSK_MISSPEFEA : UNSIGNED (8); ! Missing special feature 
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N 
BASSSYS 16-Sep-1984 01:16:51 AX-11 Bliss-32 V4.0-74 Page 
1-014 19-808- 1382 1:56:41 BASRTL. RCIBASSYS.B32; 

167 1018 GLOBAL ROUTINE BASS$SYS ( ' Do a SYS() function 
168 141 RESULT_STR, ! Result of the SYS() function 
198 1420 CODE _STR ! String that tells what to do 
170 1421 ) : NOVACUE = 
q} i : '+¢ 
rs 4 4 FUNCTIONAL DESCRIPTION: 
i} 4 $ Do a RSTS/E compatable SYS() function. 
ur 4 8 ! FORMAL PARAMETERS: 
8 430 i RESULT_STR.w2z.dx Result of the SYS() function 
rs : 1 CODE_STR.rz.dx A string of bytes which specify what to do. 
82 433 IMPLICIT INPUTS: 
ee Bl lie 
86 437 1! IMPLICIT OUTPUTS: 
87 438 : 
eg Fe 
90 441 ROUTINE VALUE: 
36 103 i Depends on the function, see above. Where the result is not 
4, 444 defined the null string is returned. 
95 i SIDE EFFECTS: 
36 3 

i 

s 


PIPIAPIPIMININININININININININININ INN INI st sk tk dd dd 
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445 
446 
447 
97 448 Signals if an error is encountered. 
98 449 
99 450 - 
00 451 
01 $36 BEGIN 
4 45 
0 454 MAP 
04 455 CODE_STR : REF BLOCK (8, BYTE); 
05 456 
06 457 BIND 
07 458 FIRST BYTE = CODE STR CDSCS$A_POINTER] : REF VECTOR C, BYTE), 
08 459 STR_LENGTH = .CODE_STR COSCSQ_LENGTHI; 
09 460 
10 461 LOCAL 
a tbe RET_STRING : BLOCK (8, BYTE); 
13 464 RET_STRING COSC$W_LENGTH) = 0; 
14 465 RET_STRING COSC$B_DTYPE] = DSCSK_DTYPE_Z; 
15 466 RET_STRING COSC$B_CLASSJ = DSCSK_CLASS_D; 
16 ret ze RET STRING CDSCSA_POINTER] = 0; 
18 469 ! Dispatch on the first byte of the string. 
19 470 !e 
20 471 
21 $%6 IF (STR_LENGTH EQLU 0) 
$§ 47 N 
2 474 BASS$STOP (BASS$K_ILLSYSUSA) 
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BASSSYS 16-Sep-1984 01:16:51 AX-11 Bliss-32 V4.0-742 Pa 4 | 
at 12-88-13 01 348:2) BASRTL. RCIBASSYS_B32:1 «35 

; 4 1475 ELSE : 
; 226 1299 CASE .FIRST_BYTE [CO] FROM 0 TO 12 OF 
: $58 1299 és 

: s 1480 J]: ' Cancel control 0 

3 ieee BASSRCTRLO ((IF (STR_LENGTH GEQ 2) THEN .FIRST_BYTE [1] ELSE 0)); 

: 148 C1] : ' Enter TAPE mode 

238 1484 BASSS$STOP (BASSK_MISSPEFEA); 

: 935 1486 ‘ (2) : ! Enable echoing 

; 236 1487 BASSECHO ((IF (STR_LENGTH GEQ 2) THEN .FIRST_BYTE C1) ELSE 0); | 

: 238 1489 § (3) : ' Disable echoing 

; 39 1490 2 BASSNOECHO ((IF (STR_LENGTH GEQ 2) THEN .FIRST_BYTE [1] ELSE 0)); 

3 eal 149¢ ; (4) hes: ! ODT submode 

> 263 1494 3 BAS$S$STOP (BASS$K_MISSPEFEA); 

4 ghd 1495 ; BASSONECHR (CIF TSTR_LENGTH GEQ 2) THEN .FIRST_BYTE [1] ELSE 0)); | 

: 266 1497 : | 

3; 2467 1498 2 (5] : ! Exit with t | 

: 348 1499 3 SEXIT (CODE = SS$_NORMAL); ‘tag hice bh ae 

: 250 1501 $ (6] : ! Call file processor 

; 33) 1308 : BAS$SSUUO (RET_STRING, .CODE_STR); 

: 25 1504 (7]: ' Get 

> 254 1505 : BEGIN recieraaeS umney 

: 335 1506 j 

5 56 1507 LOCAL 

: $8 1309 3 — 

; 359 1310 3 STATUS = L'°SGET_COMMON (RET_STRING); | 

: 261 1318 3 IF ( NOT .STATUS) THEN LIB$STOP (.STATUS); 

3 $06 151 3 

Gye e ve 

> 265 1516 ; (8) : ' Put core common | 

3 266 1517 BEGIN 

; 67 1518 ; 

: 268 1519 LOCAL 

me 1G an 

3 71 1328 DESC : BLOCK (8, BYTE); 

; st 1324 LEN = STR_LENGTH = 1; 

; 23 1326 IF (.LEN GTR 127) THEN LEN = 0; 

; $79 1358 DESC CDSC$W_LENGTH) = .LEN; 

: 378 13¢9 DESC DSCSB-DIVPE] = DSC$K’DTYPE_Z; 

: 379 1530 DESC CDSC$B7CLASS) = DSCSK~CLASS-S: 

; 280 1531 DESC CDSCSATPOINTER] = FIRST_BYTE (1); 
OS peda ice CE a BO a SAE neg See bess ea ee | 


4 
_BASSSYS 16- $ep-1984 01:16:51 YAX=11 Bliss-32 
mits We-8ep-1986 1:56:41 EBASRTL SRE SBASSYS-0325 


: He } § STATUS = LIBSPUT_COMMON (DESC); 

3 85 4 IF ( NOT .STATUS) THEN LIBSSTOP (.STATUS); 

. ees om 

: 287 1538 J]: ! Exit and clear program 

: 388 1339 SEXIT (CODE = SS$_NORMAL); see 

; 0 1541 0) : ! Special implementation 

31 1348 BASSS$STOP (BASSK_MISSPEFEA); 

: 9 1544 1]: ancel t pe ahead 

; 294 1345 BASSCANTYPAHEAD ((IF (STR LENGTH’ Gea 5) THE .FIRST_BYTE C1] ELSE 0)); 

: 296 1547 (12) : ! Info on Last opened file 

; 4 1348 : BASSSSTOP (BASSK_MISSPEFEA); 

; 99 1550 3 COUTRANGE) : ! Not defined 

: 300 1551 ,BASSSSTOP (BAS$K_ILLSYSUSA); 

Bo Be x 

: 30 1354 STRSCOPY DX (.RESULT_STR, RET_STRING); 

; 304 1395 : STRSFREET. DX (RET_STRING); 

: 306 1557 1 END; ! of routine BASS$SYS 
.TITLE BAS$SYS 
"IDENT \1-014\ 
EXTRN LIBSSTOP, STRSCOPY_DXx 
EXTRN STRSCOPY R, STRSFR 
EXTRN STRSCONCAT. LIBS$GET COMMON 
EXTRN LIBS$PUT ON, BASSSST 
EXTRN BASSRCTRLO, BASSNO 
EXTRN BASSONECHR, BASSCANT YPAHEAD 


H 
EXTRN BASSERT Ce acssca PUSH 
EXTRN Bassscn. POP BASS$STOP_10 
EXTRN BPASME SIG BPASASSIGN 
EXTRN BPASDEAS SSIGN, SPASOCASS ALL 
EXTRN BP ASSET D FSS 
EXTRN BPAS? REE “BLOC BPASSET_PRI 


-EXTRN BASS$K-NO_ROOUSE 
-EXTRN BASSK-MISSPEFEA 
-EXTRN SYSSERIT 


-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
0000 -ENTRY BAS$SYS Seve R2,R3,R4 


001¢ 
54 000000006 00 H 0002 HOVAB BASSSSI TOP 
SE 10 ¢2 00009 SUBL2 #16, SP 
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ETNIES GaSe a 


P 
BASSSYS 1b-se “19 
mitt 1a-8ep-19 

08 AE 9F 00088 17S: 

| 000000006 00 Qi) FB tt 

50 re OAS 9 Oct 188: 

0000007F —&F 50 D1 C00C8 
15 OH 3k 
4 00001 
6E 0 BO 00003 19$: 
02 AE 0100 8F 80 00006 
04 AE O12 9 9000¢ 
000000006 af OF OOOES 
8 5 EB SOOEA 208: 
0 DD 000ED 
000000006 00 1 FB OO0EE 
8 11 000F6 21s: 
01 DD 000F8 228: 
000000006 00 01 FB OOOFA 
19 11 Oo101 235: 
02 53 B1 00103 24$: 
06 1F 00106 
7E 01 A2 9A 00108 
Q2 11 o010¢ 
E 04 OO10E 258: 
000000006 00 01 FB 00110 268: 
07 11 00117 
7E 006 8F 9A 00119 278: 
64 01 £8 00110 288: 
08 AE 9F 00120 398: 
06 AC DD 00125 
000000006 00 02 FB 00126 
08 AF 9F 00120 
000000006 00 01 FB 00130 
04 00137 


; Routine Size: 312 bytes, Routine Base: _BASSCODE + 0000 


; wr 1558 1 


Be 9158: 


arreh Ol iegase V4.0-74 
BASRTL.SRCJBASSYS.832; 
_STRING 

LIBSGET_ COMMON 


Neat Fa 


LIBSPUT_COMMON 
ATUS, Bos" 


us 
#1, LIBSSTOP 
29$ 

#1 

#1, SYSSEXIT 
29$ 

R3, #2 

25$ 

1(R2), =(SP) 
26$ 


=(SP) 
ois BASSCANTYPAHEAD 
#BASSK_MISSPEFEA, -(SP) 
#1, BASSS$STOP 
RET_STRING 

mg SOL T STR 

#2, STRSCOPY_Dx 
RET_STRIN 

#1, “STRSFREE1_DX 


i 


4 


0-7 
BASRTL.SRCJBASSYS.832; 


ores ag v4. 
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Do a SYS(CHR$(6)) function 
String that tells what to do 


Result of the SYS() call 
TR CDSCSA_POINTER], 0, 512 + 41, FIRQB (2, B_)); 


Where the result is not 


BYTE) FIELD (FOBSFIELDS), 
BU; 
S83, 
6vE7S 
C2: 
$"D; 


PE 
B tS 
ae 
P 
S 


A string of bytes which specify what to do. 
], 
i; 
K 
K 
R 
H 
K 
K 


The result of the SYS() function 


41e0'5 


: BLOCK (8, BYTEJ; 
H 
E 
$ 
H 
E 


f2.0x 
: NOVALUE; 
: REF BLOCK (8, BYTE); 
: B 
BLOCK E 
C 
C 
C 
C 
ct 
C 
C 
C 


Baancascaanaa 
Wests Ovens 


(=) 
wevrsy -OUU0U 


TR 


Do a RSTS/E compatable SYS() function, where the first byte of 
IMPLICIT INPUTS: 
NONE 


the string is a 6 


FORMAL PARAMETERS: 
specified, the user's string is set to null. 


Depends on the function, see above. 
SIDE EFFECTS: 
Signals if an error is encountered. 


CODE_S 
: NOVACUE = 
RESULT_STR.wz.dx 
CODE_S 
NONE 
ROUTINE VALUE: 
EXTERNAL ROUTINE 

RSOASC 
CODE_STR 
RET_STRING 
FIROB : 
FIROB_DESC 

S 

$ 

$ 

S 

( 

N 

N 

N 

N 


LOCAL 
R 
R 
R 
R 
+ 
T 
T 
T 
T 


MAP 


he be Oe te OCS Ce Cr Ce 


) 


ROUTINE BAS$S$UU0 ( 
IMPLICIT OUTPUTS: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
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LLL EE 


PO EO OOO NL EGP OK OIG 
ICICI COICO COI OOP PUPPY WT WT WT WT WT 
LAA AAA Al AA Alle eel Alle ele el al al ale al asl ALAA al alal Alea! 


is 
‘i 
48 
349 
50 
2} 
: 
54 
2? 
: 
58 
59 
64 
5 
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ASSSYS 18-se -1984 01:16:51 AX-11 Bliss-32 V4.0-74 Page 11 
“014 12780-1382 9459832) EBASRTL SRe BASSYS 03274 . (4) 
1616 '¢ 
1818 Dispatch on the second byte of the string. 
161 
, saieaa | ‘wane CFQBSB_FUNCTION] FROM FUNSK_MINUUO TO FUNSK_MAXUUO OF 
16 
16 : CFUNSK_UUCCT] : ! Control C trap enable 
ie 1 : BASSCTRLC (); 
A 16 $ CFUNSK_UUERR) : ! Get error message 
7 16 BEGIN 
‘nt: oy 
80 1630 ERR_STRING : BLOCK (8 gyre). 
81 16 1 HEADER : BLOCK (8, BYTE); 
Hy 16 : ERR_STRING CDSC$W_LENGTH) = 0; 
84 1634 ERR-STRING DSC$B-DTYPE 4 = DSCSK_DTYPE_T; 
85 1635 RR_STRING CDSCS$B_CLASS] = DSCSK_CLASS_D; 
86 1636 RR_STRING CDSCS$A_POINTER) = 0; 
87 163 BASSERT (ERR_STRING, .FIRQB CFQB$B_ERRNUM)); 
88 1638 HEADER COSCSQ_LENGTH) = 2; 
89 1639 HEADER 443 tbat = DSCS$K_DTYPE_BU; 
90 1640 HEADER CDSCS$B_CLASS) = DSCS$K_CLASS S; 
91 1641 HEADER CDSCS$A_POINTER) = UPLIT (BYTE (0, 0)); 
4 1046 STRSCONCAT (RET_STRING, HEADER, ERR_STRING); 
9 164 STRSFREE1_DX (ERR_STRING); 
35 1ecs § “ee 
396 1646 CFUNSK_UUMES1] : ! Small message send/receive 
mee a 
100 1680 TEP ASML SEND = -1 
se 
401 1651 K"SMLREMREC = 6, 
rt} 1636 K_SML_DCLREC_REC = 1, 
40 165 K_S = 2; 
208 1688 LOCAL 
406 1636 BYTXFR, ! Number of bytes actually transferred 
407 165 ASCII_LOGNAM : VECTOR {6. orig). ' A buffer to put the translated R50 name. 
408 1658 RES_STRING : VECTOR (30, BYTE], ! Some place to put the result string temporarily. 
409 1659 MESAG : VECTOR (20, BYTE); ! A temp. place to put the message. 
ee, 
a 166¢ Translate the name passed to ASCII. 
‘8 H+ ¢3 ; RSOASC (ZREF (6), FIRQB CFQBST_RCVNAM), ASCII_LOGNAM); 
416 1606 IF .ASCII_LOGNAM (O] EQL %C'?" THEN BASSSSTOP_IO (BASSK_ILLSYSUSA); 
OE 
'¢ 
419 1869 ' Do each function seperately 
rn 
422 1672 CASE .FIRQB CFQB$B_SUBFUN] FROM K_SML_SEND TO K_SML_REC OF 
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bet 19-88-1382 979832) YBASRTL SRe BASSYS.832; 
BY my 

; 4g 1675 § CK_SML_SEND) : 

: 259 ier? CHSMOVE (20, FIROB C10, 8, MESAG): 

: 428 1678 4 CHSMOVE (20, MESAG, FIRQB C12, BJ): 'The message 

> 429 1679 4 CHSMOVE (6, ASCII_LOGNAM, FIRGB CFOBST_RCVNAM]); ‘Logical name 
: oa 1681 sate 

: 4 é 1688 CK_SML_REMREC) : 

3 : 198 13 ! Looks the same, so don't do anything. 
; 435 1685 5 Ck_SML DCLREC_REC) : 

3 6 1687 4 CHSMOVE (6, ASCII_LOGNAM, FIRQB CFQBST_RCVNAM]); ‘Logical name 
> 438 1688 4 FIRQB FoB$w_BMAX] = -1; ! Use temporary mailboxes. 

: 439 1689 4 FIRQB CFOBSB-ACCESS] = 1;  ‘ Local message. 

: 440 1690 4 BPASMESA I 0, 0, BYTXFR); 

> 641 1691 4 CHSF ILL (0, 32, f1rdp (2, B_3); 

> 44 1698 4 FIRQB CFOB$B_SUBFUN] = K.SMC_REC; 

: rh 169% ; _— 

: 445 1695 : CK_SML REC) : 

+ G47 1697 4 HSMOVE (6, ASCII_LOGNAM, FIRQB CFQBS$T_RCVNAM)); ‘Logical name 
> 448 1698 4 FIROB CFOB$B_SUBFON] = K’SML_DCLREC_REC; 

: 449 1699 4 FIRQB C(FQBSW_BMAX) = -1; T Use temporary mailboxes. 

; 450 1700 4 FIRQB CFQB$B-ACCESS] = 1;  ! Local message. 

> 451 1701 4 BPASMESAG (FIROB, 0, 0, BYTXFR); 

> 45 1708 4 HSFILL (0, 32, F1RQB (2, BJ); 

> 45 1703 4 FIROB tropée. ost NJ = K_SMC_REC; 

: 454 1704 4 FIRQB (FQBSB-RMOD) = 1; TSleep indefinitely 

> 455 1705 ; 

: 456 1706 TES; 

: 43 1708 3 16 

: ais 1709 : Now call BPASMESAG, to do the work. 

: 661 1711 ; BPASMESAG (FIROB, 0, 0, BYTXFR); 

: 46¢ 1718 CHSFILL (0, 30 ING); 

> 46 171 CHSMOVE (20, FIROB CFQBS$T PAR 1k], RES_STRING + 8); 

+ 464 1714 STRSCOPY_R (RET_STRING, ZREF 30), RES_STRING); 

: 465 1715 END; 

; 46? 1719 CFUNSK_UUMES2] : ! Large message send/receive 

: 468 1718 BEGIN 

: 470 1720 GLOBAL REGISTER 

+ 4671 1721 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

: re i; : CAL 

: 674 1724 BUFLEN, ' Length of buffer 

3; 475 1725 BUF ADR, ' Address of user's buffer 

: 47 17 $ BYTXFR; ! Number of bytes actually transferred 
: the 3 '¢ 

: 479 17 § i Set up buffer length, byte count and buffer address based on the SYS() 


'¢ 
: Copy the user's parameter string to the FIRQB. 


| 4 
ASSSYS Ib-se -1984 01:16:51 AX-11 Bliss-32 V4.0-74 
et 1 ae 1 9434822) BASRTL’ SREIBASSYS 03201 
3; 4 1730 ' string. 
; 481 1731 ; t= ° 
3; 4 ¢ 17 § 
s 6 17 4 If (.FIRQB C12, B.J EQL 0) 
3s 6 1734 3 THEN 
3: 485 1735 4 BEGIN 
s 46 § 17 $ 4 !'+ 
; 48 17 4 ! The buffer is in the string. 
; 488 1738 4 !- . 
3; 489 1739 4 CCB = 0; 
; 490 1740 4 
; 491 1741 5 IF (.CODE_STR COSCSW_LENGTH] GTR 40) 
; 49 1706 4 THEN 
; 49 1743 5 BEGIN 
: 4694 1744 2 BUFADR = FIRQB (42, B_]; 
: 495 1745 BUFLEN = .CODE_STR CDOSC$wW_LENGTH] = 40; 
; 496 1oe8 5 ND 
3; 497 1747 & ELSE 
3; 498 1748 2 BEGIN 
3; 499 1749 '¢ 
; 500 1750 5 ! There is no buffer. 
: 501 1751 5 !- 
P4 206 1726 5 BUFADR = BUFLEN = 0; 
3 1753 «5 END 
; 504 1754 «5 
; 505 1755 4 END 
; 506 1736 3 ELSE 
3; 507 1757 4 BEGIN 
; 508 1758 4 !+4 
; 509 1759 4 ! The buffer is an 1/0 buffer. The low seven bits of byte 11 are the 
; 510 1760 4 ! channel number. 
3; «$11 1761 4 !- 
; 21g 1096 4 
s Si 1765 4 LOCAL 
3 516 1764 4 CHAN; 
: 6S 1765 4 
3 21$ 1708 ? CHAN = (.FIRQB C12, B_) AND 127); 
3 218 1768 ? IF (.CHAN LEQ 0) THEN BASS$STOP_IO (BASS$K_ILLIO_CHA); 
; 250 1709 ? BASSS$CB_PUSH (.CHAN, LUBSK_LUN_MIN); 
; 523 He : IF ( NOT .CCB CLUBSV_OPENED]) THEN BASS$S$STOP_IO (BAS$K_IO_CHANOT); 
: $34 HA ? IF ((.FIRQB C16, W_} + .FIRQB C14, W_J) GTRU .CCB CLUBS$W_RBUF_SIZE)) 
H $36 1776 ¢ BASSS$STOP_IO (BASS$K_ILLBYTCOU); 
; 528 irre 2 IF (.FIRQB C14, W_] EQL 0) THEN BASS$STOP_IO (BASS$K_NO_ROOUSE); 
: 28 1780 4 BUFADR = .CCB CLUBSA_RS F_ADR] + .FIRQB (16, W_J; 
3 23! 1781 4 BUFLEN = .FIRQB (14, W_J; 
: . 17 ; END; 
. = 17 
3 2 1784 
3 5 1785 
; 536 1786 
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; i 7 7 “ CHSMOVE (20, FIRQB (22, B_J, FIRQB (12, B_)); 

; 2 7 5 i Now do the RSTS/E .MESAG function 

: 541 1791 ; BPASMESAG (FIROB, .BUFLEN, .BUFADR, BYTXFR); 

: 4g 179¢ '¢ 

: 54 179 ! Put things back. 

3 544 1794 in 

; 545 1795 CHSMOVE (20, FIRQB (12, B_), FIRQB (22, B_)); 

; Sef 1796 FIRQB C14, WJ = .BYTXFR; 

i 348 1798 IF (.CCB NEQA 0) THEN BASSSCB_POP (); 

; 550 1800 STRSCOPY_R (RET_STRING, %REF (40), .FIRQB_DESC CDSCS$A_POINTER)); 
3 22) 1393 END; 

; 28 1808 CFUNSK_UUFSS1, FUNSK_UUFSS2] : ! File string scan 

; 554 1804 BEGIN 

; 555 1805 

: 556 1806 LOCAL 

; 557 1807 STATUS 

; 258 1808 FSB : $FSB_DEF; 

: 260 1819 STATUS = BPASFSS (FIRQB, FSB, .CODE_STR CDSCS$A_POINTER] + 2, .CODE_STR CDSC$W_LENGTH) - 2); 
: 562 1812 4 IF ( NOT .STATUS) 

$ 207 181 N 

: 564 1814 LIBSSTOP (.STATUS) 

; 565 1815 LSE 

: 566 1816 4 BEGIN 

3 367 1817 4 

; 568 1818 4 LOCAL 

; 569 1819 4 STATUS; 

3; 570 1820 4 

; 371 1821 4 STATUS = BPASFREE_BLOCK (.FSB CFSBSA_FSA], NAMSC_MAXRSS); 
; 278 1898 4 IF ( NOT .STATUS) THEN LIBSSTOP (.STATUS); 

3 574 1824 4 

; 229 1825 4 !+ 

3 | 1366 : : Return information to the user from the FIRQB and FSB. 

: 8 1828 4 FIROB (3, B.) = .FIROB C5, B_); 

; 579 1829 4 FIRQB C16, @_) = .FIROB cB. wd; 

; 580 1830 4 FIROB 0. W7] = .FIROB C30, Wid; 

3 281 1831 4 FIRQB (08, WI) = .FSB FSB$4_FCAG_1}; 

; 8 183¢ 4 FIROB C30, W7) = .FSB FSBSUIELAG 2 : 

; 283 ; 4 STRSCOPY A (RET_STRING, ZREF~(30)> .FIRQB_DESC CDSCSA_POINTER)); 
$85 3 END; 

; 387 1837 : ‘abe 

: 4 : M3 ke CFUNSK_UUPRI] : ! Set priority, etc. 
: 536 : 29 ; Only priority setting is implemented; all else is ignored. 

: 532 1 4g F BEGIN 

; 59 1 BPASSET_PRI (FIRQB); 


BASSSYS 
with 


; 594 1844 

; 595 1845 

3 4 1 6 

3; 184 

5 38 1 rk: 

3 184 

; 600 1850 

; 601 1851 

; 60 1 26 

: Oe 188 
; 605 1 2¢ 

; 1 28 

; 60 185 

; 608 1858 

; 609 1322 

3 1860 

3 1861 

3 1866 

3 186 

$ 1864 
1392 

; 1866 

3 1867 

3 1868 

3 1869 

: 187 
3 1 $ 
; 1 2 
3 1 2 
3 1 2 
: 1 rd 
: 1 é 
3 1 1 
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CFUNSK_UUATR) : 
BASSSSTOP (BASSK_MISSPEFEA); 


CFUNSK_UUASS) : ' 
BPASASSIGN (FIRQB) 
STRSCOPY. DX (RET “STRING, FIRQB_DESC); 
CFUNSK_UUDEA) : 
BPASDEASSIGN (FIROQB); 


CFUNSK_UUDAL] : 
BPASDEASS -ALL Q); 


CFUNSK_UUSDEF) : 
BPASSET_DEF (FIRQB); 


CINRANGE] : 
BASS$STOP (BASSK -MISSPEFEA); 


COUTRANGE] : 
$; BASSSSTOP (BASSK_ SLLSYSUSAD; 


STRSCOPY_DX (.RESULT_STR, RET_STRING); 
STRSPREET_ DX (RET_STRING); 


00 00 00138 P.AAA: 


ifoseoctgee 01:16:51 


AX=11 BLiss-32_v4.0-74 
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Read/write file 


Assign 


Deassign 


Deassign all 


Set default 


Unimplemented 


Not defined 


of routine BAS$$UU0 


-BYTE 0, 0 
-EXTRN RSOASC 


OFFC 00000 BASS$$uULO: 


5A 000000006 00 9E 0000 
59 000000006 00 9€ 0000 
5E FO7?C CE 9€ 0001 
48 AE 01020229 8F D0 0001 
4C AE ; AE 43 Bai8 
56 0 AC 0 
04 86 66 2C 00026 
52 AE 00 
F8 AD 02000000 8F 00 000 
F AD 04 000 
” 209 , ¢ . doat 1$ 
05¢9 O39 0049 


ve R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


AB Bt ESAG, R10 
MOVAB BAS ASS$STOP_ 10, R9 
MOVAB 6 sP) 
MOVL #1690 08841 +F ROB DESC 
MOVAB F 1RQB_DESC+4 
MOVL 0 abe BSTh 
MOVCS  (R6)7 a4(R6), #0, #553, FIROB+2 
MOVL #3355432 RET_STRING 
CLRL = RET_STRING*4 
CASEB. F RO Ky #-26, 
WORD 333 $,- 

$-1$.- 
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BASSSYS 16-Sep-1984 01:16:51 AX-11 Bliss-32 V4.0-74 
mth 19-808= 1382 94:48:21 YBASRTL SRE BASsyS B300% 
40 AE 02060900 8F vO 0 BF 3$ MOVL  #34471936 ERR STRING 
44 AE pa C7 CLRL = ERR_STRING+ 
“ 2 ne or aoce PUSAAD ERRCSTRING 
000000006 00 FB 000D CALLS #2, BASSERT 
38 AE 01020002 ge BB 0008 OVL 416980590 HEADER 
C AE FFIA CF 9E OO0EO VAB_ P.AAA, HEADE 
40 AE 9F 00 ES PUSHAB ERR STRING 
3C = AE. OOF O00E PUSHAB HEADER 
F8 = AD OOF OOEC PUSHAB RET_STRING 
000000006 00 03 FB OOOEF CALLS #3, STRSCONCAT 
40 aE OF OFS PUSHAB ERR_ STRING 
000000006 00 01 FB O00F CALLS #1, STRSFREE1_DX 
0212 31 0109 4$ Rw 34§ 
40 AE 9F 00103 5$ PUSHAB ASCII_LOGNAM 
SA AE 9F 00106 PUSHAB FIROB?6 
08 AE 06 DO 00109 MOVL #6, 8(SP) 
08 AE 9F 0010D PUSHAB 8(§P) 
000000006 00 03 FB 00110 CALLS #3, RSOASC 
3F 40 AE 91 00117 CMPB = ASCII_LOGNAM, #63 
07 12 0011B BNEQ 6$ 
7E 006 8F 9A 0011D MOVZBL M#BASSK_ILLSYSUSA, -(SP) 
69 01 FB 00121 CALLS #1, BASS$STOP_IO 
03 FF OF 54 AE BF 00124 6$ CASEB FIROB+4, #-1, #3 
0042 001C 006C¢ 0008 0012A 7$ WORD 88-78 ,- 
9$-7$,- 
10$-7$ 
OC AE SA AE 14 28 00132 8$ MOVC3 #20. FIRQB+10, MESAG 
SC AE 0c AE 14 28 00138 MOVC3 #20. MESAG, FIRQB+12 
56 OA 40 AE 06 28 0013E MOVC3 #6, ASCII_LOGNAM, FIROB+6 
50 11 00144 BRB 11 
56 AE 40 AE 06 28 00146 9S: MOVC3 #6, ASCII_LOGNAM, FIROB+6 
SE AE 01 AE 0014C MNEGW #1. FIROQBT14 
5D AE 01 96 00150 OVB = #1. -FIRQB+13 
04 AE 9F 00154 PUSHAB BYTXFR 
7E 7C 00157 LRQ ss = (SP) 
5C AE 9F 00159 PUSHAB FIROB 
6A 04 FB 0015¢ CALLS #4, BPASMESAG 
20 00 6E = 00 2¢ 0015 MovCS #0, (SP), #0, #32, FIRQB+2 
54 AE 02 90 00166 MOVB = #2,,:«~FIROB+4 
A 11 0016A BRB 1 
56 AE 40 AE 6 8 0016¢ 10$:  MOVC3 #6, ASCII_LOGNAM, FIRQB+6 
54 AE 1 1 MOVE #1. FIRQB?4 
SE AE 01 Ar 00176 MNEGW #1, FIROQB+14 
5D AE 01 90 0017A OVvB 1, FIROB+13 
04 AE OF OOI7E PUSHAB BYTXFR 
7E 7C 00181 LRQ ss = (SP) 
5C AE «OOF 00183 PUSHAB FIROB 
6A 04 FB ot CALLS #4, BPASMESAG 
20 00 6E ‘ 00 2c i MOVCS #0, (SP), #0, #32, FIRQB+2 
54 AE 0103 BF BO 001 MOVW #258, FIROQB+4 
04 AE 9F 00196 11$:  PUSHAB BYTXFR 
7E 7C 00199 Q =<(SP) 
SC 6 AE «OOF 00198 PUSHAB FIROB 
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13-808- 1382 9434822) EBASRTL Ske BASSYS.832; 9 a) 
6A 4 FB 0019 CALL #4, BPASMESAG : 
00 6E - 00 2c 1K moves #0, (SP), #0, #30, RES_STRING + 1712 
AE SC AE 14 28 1:8 MOVC3 #20, FIRQB+12, RES_STRING+8 + 1713) 
20 AE OF AE PUSHAB RES.STRING + 1714 
OOFD 31 0018 BRW 24$ : | 
5¢ AE 3 184 12$:  TSTB  FIRQB+12 : 1733) 
7s 187 BNEQ 14$ : | 
5B 04 00189 CLRL (CCB : 1739 
28 66 B1 0018B CMPW 3S «(R6), #40 + 1741 
C 18 O1BE BLEQU 13S : 
57 7A AE 3 ic OVAB FIRQB+42, BUFADR + 1744 
§ 66 ¢ 1¢4 MOVZWL (6), UFLEN + 1745 
58 : C2 001¢7 SUBL2 #40, BUFLEN : 
11 OO1CA BRB 19$ + 1741 
57 7C OO1CC 13$:  CLRQ  ®BUFADR + 1752 
54 11 OO1CE BRB 19$ + 1741 
AE 07 00 EF 00100 148: = EXTZVv #9 #7, FIRQB+12, CHAN + 1766 
07 14 00106 BGTR 15$ : 1768 
7E 006 8F 9A 001D8 MOVZBL #BASS$K_ILLIO_CHA, =(SP) : 
69 gi FB 0010C CALLS #1, BAS$S$STOP_10 : | 
0 D4 OO1DF 15$: LRL =—s_- RO : 1770. 
000000006 00 16 001E1 JSB BAS$$CB_PUSH : 
07 FC AB 8 001€7 BLBS  =4(CCB) : 1772 
7E 00G 8F 9A OO1EB MOVZBL M#BAS$K_{0 CHANOT, -(SP) : | 
69 01 FB OO1EF CALLS #1, BAS$$STOP_IO : | 
50 60 AE 3¢ OO1F2 16$: MOVZWL FIROQB+16, RO + 1774. 
51 5E AE 3C 001F6 MOVZWL FIROB+14. R1 : | 
50 51 CO OO1FA ADDL2 Ri, : 
AB 10 00 €D O01FD CMPZV #0 #16, -46(CCB), RO : 
07 1€ 0020 BGEQU 17$ : | 
7E 006 8F 9A 00205 MOVZBL #BASS$K_ILLBYTCOU, -(SP) : 1776 
69 01 FB 00209 CALLS #1, BAS$$STOP_IO F | 
5E AE BS 0020C 17$: TSTW F 1RaB+14 : 1778. 
0 12 0020F NEQ 18$ : | 
7E 006 8F 9A 00211 MOVZBL #BASS$K_NO_ROOUSE, -(SP) : 
69 01 FB 00215 CALLS #1, BASSS$S 3 | 
57 60 AE 3C 00218 188: MOVZWL F1ROB*16, BUFADR ; 1780 
57 EC AB £0 99 1 ADDL2 -20(CCB). BUFADR ; | 
58 SE AE 3C 00 MOVZ2WL FIRQB+14. BUFLEN : 1781 
AE 66 AE 14 28 00224 19$: MOVC3 #20, FIRQB+22, FIROB+12 : 1787) 
08 Ag F OO22A PUSHAB BYTXFR > 1791 | 
57 DD 0022D PUSHL BUFADR ; | 
58 DD 0 F PUSHL BUFLEN : 
5c AE OOF 1 PUSHAB FI : 
6A 04 EB 0 CALLS #4, BPASMES ; 
AE 5C AE 42 0 7 MOVCS #26, FIRQB+12, FIRQB+22 : 1795 | 
SE =OAE 08 AE B p MOVW BYTKFR, FI : 1796 | 
5B 05 0024 TSTL CCB : 1798 | 
06 13 00244 BEQL 20$ : 
000000006 16 00246 JSB BASS$SCB_POP ; 
4c OA Dp 024C 208:  PUSHL FIROB DESC+4 + 1800 
04 AE 2 p O24F MOVL #40, &(SP) ; 
60 11 00 23 BRB 25$ ; 
7E 6 3c 00 3 21$: MOVZWL (R6), -(SP) + 1810 
6E C2 00258 SUBL ae, (sp) ; 
7E 04 AG 02 C1 00258 ADDLS #2, 4(R6), -(SP) ; 
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000000006 
000000006 
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51 AX=11 BL iss-32 V4.0-742 
41 BASRTL.SRCJBASSYS.B32;1 

PUSHAB FSB 

PUSHAB FIRQB 

ALLS #4 BPASE S$ 

LBS STATUS, 2 

PUSHL STATUS 

CALLS #1, LIB$STOP 

RB 29§ 
MOVZBL #255, =(SP) 

USHL  FSB+ 

CALLS #2, BPASFREE_BLOCK 
BLBS STATUS, 23$ 

PUSHL STATUS 

CALLS #1, LIBSSTOP 

MOVE FIROQB+S, FIROB+3 
MOVW F1RB+ 28, FIRQB+16 
MOVW Be 4 0, FIRQB+20 
MOVW  FSB+34, F1RQB+ 8 
MOVW FSB+32, FIROB+30 
PUSHL FIROQB_DESC+4 

OVL #30, &(SP) 

PUSHAB 4(SP) 

PUSHAB RET_STRING 

CALLS #3, STRSCOPY_R 
BRB 3 

PUSHAB FIRQB 

CALLS #1, BPASSET_PRI 
BRB 34§ 

PUSHAB FIRQB 

CALLS #1, BPASASSIGN 
PUSHAB FIRQB DESC 

PUSHAB RET_STRING 

CALLS #2, STRSCOPY_DX 
BRB 34§ 

PUSHAB FIROB 

CALLS #1, BPASDEASSIGN 
BRB 4$ 

CALLS #0, BPASDEASS_ALL 
BRB 34§ 

PUSHAB 


FIROB 
CALLS #1, BPASSET_DEF 

BRB 4 

MOVZBL #BASS$K_MISSPEFEA, -(SP) 
CALLS #1, BAS$$STOP 

PUSHAB RET_STRING 

RESOLT STR 

#2, STRSCOPY_DX 

RET_S 

CALLS #1, ~STRSFREE1_Dx 

RET 


of module BAS$SYS 


Dee Se Se Be Se Se Be Bs Ge Se Se Se Se Se Ge Se Ge Se Se Se Be Se Se Se Se Se Se Se Fe Se Fe Fe Ge Se Se Se Se Se Fe Se Ge Se Ge Se Se Fe Bee 


BASSSYS 
1-014 


or 


Name 
~BASSCODE 


File 


Bytes 


14-Sep-1984 11 + 
PSECT SUMMARY 
Attributes 
1127 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, 
Library Statistics 
eoonmene Syee scocccee Pages 
Total ioaded Percent Mapped 
9776 13 0 581 


~$255$DUA28: CSYSLIBISTARLET.L32;1 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:BASSYS/OBJ=OBJ$:BASSYS MSRC$:BASSYS/UPDATE=(ENH$:BASSYS) 
1125 code_+ 2 data bytes 

: 00:25.7 

Elapsed Time: 00:58.6 


Lines/CPU Min: 4388 
Lexemes/CPU-Min: 31558 
pomeey Used: 288 pages 
Compilation Complete 


COMMAND QUALIFIERS 


. § 
16-Sep-1984 01: 


VAX-11 Bliss-32 V4.0-7 
CBASRTL.SRCIBASSYS.B32;1 


CON, PIC,ALIGN(2) 


Processing 
Time 


00:01.2 


ae 


Page 20 
" (4) 


aE nnNInenNREeeneeneeemmeeesne ee 


0032 ° H-BT13A-SE | T CORPORATION 
: VAX/ VMS V4.0 = PROPRIETARY 


